* Import ENH 2000-3
* This file converts the files from the ENH 2000-3 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/2000/3/h109sp00.P99
* Outputs: Files in Data/Importable/ENH/2000/TRIM  3

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/2000"
cap mkdir "`master'/Data/Importable/ENH/2000/TRIM 3"
cd "../../Data/Original/encuestas de hogares/ENH/2000"
cd eht20003

* Registro tipo 01 - Datos de la vivienda y el hogar
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 ///
tipo_vivienda 30 material_paredes 31 material_pisos 32 acueducto 33 alcantarillado 34 electricidad 35 gas 36 serv_ninguno 37 str num_cuartos 38-39 tipo_sanitario 40 basura 41 fuente_agua 42  tergia_cocinar 43 propiedad_vivienda 44 cuota 45-54 telefono 55 lavadora 56 nevera 57 televisor 58 sonido 59 horno 60 bienes_ninguno 61 ///
area 147-148 fex 149-152 ///
if tipo_registro==01 using h109sp00.P99 , clear

save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_hogar.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_hogar.dta")

* Registro tipo 02 - Módulo de algunos gastos
* Se parece al modulo de gasto servicios. Lo registro como gastoser1

clear 
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 ///
d_transporte_taxi 30 transporte_taxi 31-40  d_comida_fuera 41 comida_fuera 42-51 d_cine 52 cine 53-62 d_pasajes 63 pasajes 64-73 d_hoteles 74 hoteles 75-84 ///
area 147-148 fex 149-152 ///
if tipo_registro==02 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_gastoser1.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_gastoser1.dta")

* Registro tipo 03 - Consumo hogares
* Bastante inútil
clear 
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 ///
arroz 30-34 ///
area 147-148 fex 149-152 ///
if tipo_registro==02 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_consumo.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_consumo.dta")

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
parentesco 32-33 sexo 34 edad 35-36 estado_civil 37 str mpio_padres 38-40 str depto_padres 41-42  cabecera_padres 43 tiempo_residencia_tvida 44 tiempo_residencia 45-46 str mpio_vivia_antes 47-49 str depto_vivia_antes 50-51 cabecera_vivia_antes 52 lee_escribe 53 asiste_escuela 54 colegio_oficial 55 ultimo_grado_estudios 56-58 ///
area 147-148 fex 149-152 ///
if tipo_registro==10 using h109sp00.P99 , clear

save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
actividad 32 trabajo_mas 33 no_trabajo_empleo 34 trabajo_familia 35  horas_t_familia_m15 36 horas_t_familia 37-38 d_ela_vestido 39 d_t_comunitario 40 t_actividades 41-42 quiere_conseguir 43   busco_ultima 44 motivo_no_busco_ultima 45-46 disponible 47 trabajo_2s_u12meses 48 ha_buscado 49 ha_buscado_12m 50  no_ha_buscado_t 51-52 disponible2 53 ///
area 147-148 fex 149-152 ///
if tipo_registro==50 using h109sp00.P99 , clear

save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
trabajo_permanente 32 ocupacion 33-34 actividad_empresa 35-36 tipo_trabajador 37 salario 38-47 d_salario_alimentos 48 salario_alimentos 49-58 d_salario_vivienda 59 salario_vivienda 60-69 ganancia_mes 70-79 ing_arriendos 80-89 ing_pensiones 90-99 ing_ayudas 100-109 ing_intereses 110-119 ing_otros 120-129 horas_semana 130-132 d_menos_horas 133 menos_horas 134-136 d_mas_horas 137 mas_horas 138-139 ///
area 147-148 fex 149-152 ///
if tipo_registro==60 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_ocupados.dta")

* Registro tipo 61 - Empleo y activdades secundarias
* Es el módulo de empleo secundario.
clear
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
segundo_trabajo 32 tipo_segt 33 salario 34-43 actividad_segt 44-45 horas_ultima_segt 46-47 d_ela_vestido 48 d_t_comunitario 49 t_actividades 50-51 desea_cambiar 52 motivo_cambiar_capacidad 53 motivo_cambiar_ingresos 54 motivo_cambiar_menost 55 motivo_cambiar_ttemp 56 motivo_cambiar_prob 57 motivo_cambiar_nog 58 motivo_cambiar_efrzo 59 motivo_cambiar_otro 60 motivo_cambiar_ns 61 ha_buscado_cambiar 62 disponible_camb 63 quiere_trabajar_mas 64 horas_trabajar_mas 65-66 buscado_mas_horas 67 disp_mas_horas 68 ///
area 147-148 fex 149-152 ///
if tipo_registro==61 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_secundario.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_secundario.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
tiempo_buscando 32-34 disponible_para_trabajar 35-37 buscado_ocupacion 38-39 buscado_tipo 40 buscado_primeravez 41 tiempo_dejo_trabajar 42-44 trabajoo_ocupacion 45-46 trabajoo_actividad 47-48 trabajoo_tipo 49 ing_trabajo 50-59 ing_arriendos 60-69 ing_pensiones 70-79 ing_ayudas 80-89 ing_intereses 90-99 ing_otros 100-109 ///
area 147-148 fex 149-152 ///
if tipo_registro==70 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_desocupados.dta")

* Registro tipo 80 - Inactivos
clear
infix tipo_registro 1-2 str id 3-29 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 total_hogares 23-24 hogar 25-26 personas_hogar 27-28 resultado_encuesta 29 orden 30-31 ///
ha_trabajado_2s 32 tiempo_inactivo 33 ha_buscado 34 alguna_vez_buscado 35 cuando_busco 36 ing_trabajo 37-46 ing_arriendos 47-56 ing_pensiones 57-66 ing_ayudas 67-76 ing_intereses 77-86 ing_otros 87-96 ///
area 147-148 fex 149-152 ///
if tipo_registro==80 using h109sp00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 3/2000_3_inactivos.dta")

